home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / excell1a / form4.frm < prev    next >
Text File  |  1999-10-08  |  6KB  |  245 lines
  1. VERSION 5.00
  2. Begin VB.Form Form4 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FF0000&
  5.    BorderStyle     =   1  'Fixed Single
  6.    ClientHeight    =   10065
  7.    ClientLeft      =   15
  8.    ClientTop       =   15
  9.    ClientWidth     =   13080
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form4"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   10065
  15.    ScaleWidth      =   13080
  16.    StartUpPosition =   3  'Windows Default
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.Timer Timer2 
  19.       Interval        =   20
  20.       Left            =   6000
  21.       Top             =   4800
  22.    End
  23.    Begin VB.Timer Timer1 
  24.       Interval        =   5
  25.       Left            =   3600
  26.       Top             =   3360
  27.    End
  28.    Begin VB.Image imgPic 
  29.       Height          =   2895
  30.       Left            =   3840
  31.       Picture         =   "Form4.frx":0000
  32.       Stretch         =   -1  'True
  33.       Top             =   5280
  34.       Width           =   2910
  35.    End
  36.    Begin VB.Image imgBalloon 
  37.       Height          =   2310
  38.       Left            =   -3040
  39.       Picture         =   "Form4.frx":14C2
  40.       Stretch         =   -1  'True
  41.       Top             =   240
  42.       Width           =   2115
  43.    End
  44.    Begin VB.Label Label3 
  45.       Alignment       =   2  'Center
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "Click here to begin"
  48.       BeginProperty Font 
  49.          Name            =   "Verdana"
  50.          Size            =   12
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   -1  'True
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00FFFFFF&
  58.       Height          =   495
  59.       Left            =   2640
  60.       MouseIcon       =   "Form4.frx":5544
  61.       MousePointer    =   99  'Custom
  62.       TabIndex        =   2
  63.       Top             =   3840
  64.       Width           =   2415
  65.    End
  66.    Begin VB.Label Label2 
  67.       AutoSize        =   -1  'True
  68.       BackStyle       =   0  'Transparent
  69.       Caption         =   "HangMan"
  70.       BeginProperty Font 
  71.          Name            =   "Comic Sans MS"
  72.          Size            =   48
  73.          Charset         =   0
  74.          Weight          =   700
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       ForeColor       =   &H0000FFFF&
  80.       Height          =   1350
  81.       Left            =   1800
  82.       TabIndex        =   1
  83.       Top             =   2280
  84.       Width           =   4200
  85.    End
  86.    Begin VB.Label Label1 
  87.       AutoSize        =   -1  'True
  88.       BackStyle       =   0  'Transparent
  89.       Caption         =   "TonysComp Presents"
  90.       BeginProperty Font 
  91.          Name            =   "Garamond"
  92.          Size            =   15.75
  93.          Charset         =   0
  94.          Weight          =   700
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       ForeColor       =   &H00000000&
  100.       Height          =   360
  101.       Left            =   2520
  102.       TabIndex        =   0
  103.       Top             =   2160
  104.       Width           =   2880
  105.    End
  106. End
  107. Attribute VB_Name = "Form4"
  108. Attribute VB_GlobalNameSpace = False
  109. Attribute VB_Creatable = False
  110. Attribute VB_PredeclaredId = True
  111. Attribute VB_Exposed = False
  112. Private Sub Form_Click()
  113.     Form1.Show
  114.     Form4.Enabled = False
  115.  
  116.     
  117. End Sub
  118.  
  119. Private Sub Form_Load()
  120.     Form1.Show
  121.     Form4.WindowState = 2
  122.     Label1.Left = (Screen.Width / 2) - (Label1.Width / 2)
  123.     Label1.Top = (Screen.Height / 2) - (Label1.Height / 2) - (Label2.Height / 2) - 1000
  124.     
  125.     Label2.Left = (Screen.Width / 2) - (Label2.Width / 2)
  126.     Label2.Top = (Screen.Height / 2) - (Label2.Height / 2) - 1000
  127.     
  128.     Label3.Left = (Screen.Width / 2) - (Label3.Width / 2)
  129.     Label3.Top = (Screen.Height / 2) - (Label3.Height / 2) + (Label2.Height) - 1000
  130.     
  131.     imgPic.Left = (Screen.Width / 2) + 1000
  132.     imgPic.Top = (Screen.Height / 2) + 500
  133.     
  134.     
  135.     
  136.     
  137.     Form4.WindowState = 2
  138.     
  139.  
  140.     
  141.     
  142.     
  143.     
  144.     
  145.     
  146. End Sub
  147.  
  148. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  149.     Label3.ForeColor = vbWhite
  150. End Sub
  151.  
  152. Private Sub Image1_Click()
  153.  
  154. End Sub
  155.  
  156. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  157.     Label3.ForeColor = vbWhite
  158. End Sub
  159.  
  160. Private Sub Label3_Click()
  161.     Form1.Show
  162.     Form1.Height = 0
  163.     
  164.     Timer1.Enabled = True
  165.     Form4.Enabled = False
  166.     
  167. End Sub
  168.  
  169. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  170.     Label3.ForeColor = vbGreen
  171. End Sub
  172.  
  173. Private Sub Timer1_Timer()
  174.     Form1.Height = Form1.Height + 105
  175.     If Form1.Height >= 6870 Then
  176.         Timer1.Enabled = False
  177.         Exit Sub
  178.     End If
  179. End Sub
  180.  
  181. Private Sub Timer2_Timer()
  182.     Static Timed
  183.  
  184.     If Timed = 0 Then
  185.     
  186.        Dim SW, SH
  187.         Dim LineNum
  188.         SW = Screen.Width
  189.         SH = Screen.Height
  190.         LineNum = 0
  191.         Dim b
  192.     
  193.  
  194.         Do While SH > LineNum
  195.             Form4.Line (0, LineNum)-(SW, LineNum), RGB(100, 0, b)
  196.     
  197.             LineNum = LineNum + (SH / 1000)
  198.             Form4.Line (0, LineNum)-(SW, LineNum), RGB(100, 0, b)
  199.     
  200.             LineNum = LineNum + (SH / 1000)
  201.             
  202.             Form4.Line (0, LineNum)-(SW, LineNum), RGB(100, 0, b)
  203.     
  204.             LineNum = LineNum + (SH / 1000)
  205.                   
  206.             Form4.Line (0, LineNum)-(SW, LineNum), RGB(100, 0, b)
  207.     
  208.             LineNum = LineNum + (SH / 1000)
  209.                           
  210.             b = b + 1
  211.         Loop
  212.         Static timed2
  213.  
  214.     End If
  215.  
  216.  
  217.  
  218.     If Timed > 1000 Then
  219.     
  220.  
  221.  
  222.         If timed2 = 0 Then
  223.             timed2 = -3000
  224.         End If
  225.         
  226.         imgBalloon.Left = timed2
  227.         timed2 = timed2 + 91
  228.     End If
  229.     If timed2 = 500000 Then
  230.         timed2 = 0
  231.     End If
  232.     Timed = Timed + 1
  233.     
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244. End Sub
  245.